home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / russian / cyrilic2 / keybru.asm < prev    next >
Encoding:
Assembly Source File  |  1989-04-20  |  4.0 KB  |  168 lines
  1. ;this dirty hack is a int 16 replacement
  2. ;russian is on if 0:417 has 10 on (scroll lock)
  3. ;we don't change the scan code when replacing al
  4.  
  5. cseg     segment
  6.      assume    cs:cseg,ds:cseg
  7. zero:
  8.      org       100h
  9. entry:     jmp       start
  10.  
  11. ;
  12. trtab     equ       $
  13. ;Soviet keyboards have 2 extra keys (just like IBM European keyboards).
  14. ;We leave the shifted values of the top row unchanged US (!,@,#,...,+)
  15. ;but replace the Alt-values to make up for the keys used for letters.
  16. ;This is not 100% GOST, but is better for our users.
  17. ;Alpha layout is GOST
  18.  
  19. ;First row:
  20.      db       000h,078h,'≡' ;alt-1 is Number acronym (ligature)
  21.      db       000h,079h,'²' ;alt-2 is Section
  22.      db       000h,07Ah,'/' ;alt-3 is /
  23.      db       000h,07Bh,'"' ;alt-4 is "
  24.      db       000h,07Ch,':' ;alt-5 is :
  25.      db       000h,07Dh,',' ;alt-6 is ,
  26.      db       000h,07Eh,'.' ;alt-7 is .
  27.      db       000h,07Fh,';' ;alt-8 is ;
  28.      db       000h,080h,'?' ;alt-9 is ?
  29.      db       000h,081h,'ò' ;alt-0 is currency symbol
  30.      db       000h,082h,'<' ;alt-- is <
  31.      db       000h,083h,'>' ;alt-= is >
  32.  
  33. ;Second row:
  34.      db       071h,010h,'┘' ;q is i short
  35.      db       051h,010h,'╣' ;Q is I short
  36.      db       077h,011h,'µ' ;w is ts
  37.      db       057h,011h,'╞' ;W is TS
  38.      db       065h,012h,'π' ;e is u
  39.      db       045h,012h,'├' ;E is U
  40.      db       072h,013h,'┌' ;r is k
  41.      db       052h,013h,'║' ;R is K
  42.      db       074h,014h,'╒' ;t is e
  43.      db       054h,014h,'╡' ;T is E
  44.      db       079h,015h,'▌' ;y is n
  45.      db       059h,015h,'╜' ;Y is N
  46.      db       075h,016h,'╙' ;u is g
  47.      db       055h,016h,'│' ;U is G
  48.      db       069h,017h,'Φ' ;i is sh
  49.      db       049h,017h,'╚' ;I is SH
  50.      db       06Fh,018h,'Θ' ;o is shch
  51.      db       04Fh,018h,'╔' ;O is SHCH
  52.      db       070h,019h,'╫' ;p is z
  53.      db       050h,019h,'╖' ;P is Z
  54.      db       05Bh,01Ah,'σ' ;[ is h
  55.      db       07Bh,01Ah,'┼' ;{ is H
  56.      db       05Dh,01Bh,'Ω' ;] is hard
  57.      db       07Dh,01Bh,'╩' ;} is Hard
  58. ;
  59.      db       061h,01Eh,'Σ' ;a is f
  60.      db       041h,01Eh,'─' ;A is F
  61.      db       073h,01Fh,'δ' ;s is y
  62.      db       053h,01Fh,'╦' ;S is Y
  63.      db       064h,020h,'╥' ;d is v
  64.      db       044h,020h,'▓' ;D is V
  65.      db       066h,021h,'╨' ;f is a
  66.      db       046h,021h,'░' ;F is A
  67.      db       067h,022h,'▀' ;g is p
  68.      db       047h,022h,'┐' ;G is P
  69.      db       068h,023h,'α' ;h is r
  70.      db       048h,023h,'└' ;H is R
  71.      db       06Ah,024h,'▐' ;j is o
  72.      db       04Ah,024h,'╛' ;J is O
  73.      db       06Bh,025h,'█' ;k is l
  74.      db       04Bh,025h,'╗' ;K is L
  75.      db       06Ch,026h,'╘' ;l is d
  76.      db       04Ch,026h,'┤' ;L is D
  77.      db       03Bh,027h,'╓' ;; is zh
  78.      db       03Ah,027h,'╢' ;: is ZH
  79.      db       027h,028h,'φ' ;' is e rev
  80.      db       022h,028h,'═' ;" is E rev
  81. ;
  82.      db       07Ah,02Ch,'∩' ;z is ya
  83.      db       05Ah,02Ch,'╧' ;Z is YA
  84.      db       078h,02Dh,'τ' ;x is ch
  85.      db       058h,02Dh,'╟' ;X is CH
  86.      db       063h,02Eh,'ß' ;c is s
  87.      db       043h,02Eh,'┴' ;C is S
  88.      db       076h,02Fh,'▄' ;v is m
  89.      db       056h,02Fh,'╝' ;V is M
  90.      db       062h,030h,'╪' ;b is i
  91.      db       042h,030h,'╕' ;B is I
  92.      db       06Eh,031h,'Γ' ;n is t
  93.      db       04Eh,031h,'┬' ;N is T
  94.      db       06Dh,032h,'∞' ;m is soft
  95.      db       04Dh,032h,'╠' ;M is Soft
  96.      db       02Ch,033h,'╤' ;, is b
  97.      db       03Ch,033h,'▒' ;< is B
  98.      db       02Eh,034h,'ε' ;. is yu
  99.      db       03Eh,034h,'╬' ;> is YU
  100.      db       02Fh,035h,'±' ;/ is yo
  101.      db       03Fh,035h,'í' ;? is YO
  102. trtabl     equ       ($-trtab)/3
  103.  
  104. inah    db    ? ;ah we called with
  105.  
  106. newi16:
  107.     mov    cs:inah,ah
  108.     pushf
  109.     db    09ah ;far call
  110. oldi16    dw    0,0
  111.     pushf
  112.     push    bx
  113.     mov    bl,cs:inah
  114.     cmp    bl,2
  115.     jb    yes
  116.     cmp    bl,10h
  117.     jb    no
  118.     cmp    bl,12h
  119.     jae    no
  120. yes:
  121.     push    ds
  122.     xor    bx,bx
  123.     mov    ds,bx
  124.     test    byte ptr ds:[417h],10h
  125.     pop    ds
  126.     jz    no ;only when scroll lock is lit
  127.     push    cx
  128.     push    ds
  129.     push    cs
  130.     pop    ds
  131.     mov    bx,offset trtab
  132.     mov    cx,trtabl
  133. scan:    cmp    ax,ds:[bx]
  134.     jnz    scann
  135.     mov    al,ds:[bx+2]
  136.     jmp    short scanx
  137. scann:    add    bx,3
  138.     loop    scan
  139. scanx:
  140.     pop    ds
  141.     pop    cx
  142. no:
  143.     pop    bx
  144.     popf
  145.     db    0cah ;retf 2
  146.     dw    2
  147.  
  148. start:    xor    ax,ax
  149.     mov    ds,ax
  150.     mov    ax,offset newi16
  151.     xchg    ax,ds:[16h*4]
  152.     mov    cs:oldi16,ax
  153.     mov    ax,cs
  154.     xchg    ax,ds:[16h*4+2]
  155.     mov    cs:oldi16+2,ax
  156.     push    cs
  157.     pop    ds
  158.     mov    dx,offset msg
  159.     mov    ah,9
  160.     int    21h
  161.     mov    dx,(start-zero+15)/16
  162.     mov    ax,3100h
  163.     int    21h
  164. msg    db    'Russian keyboard driver loaded. Hot key is Scroll Lock=▒█┌Å┐α┌α'
  165.     db    13,10,'$'
  166.  cseg     ends
  167.     end      entry
  168.